UserID ([cUserID]) --> cUserID:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Functions:
~~~~~~~~~~
User ID is stored, to display in every start of a program. You can ask
for active username whwenewer you need after he enters his ID and
password.

Parameter description:
~~~~~~~~~~~~~~~~~~~~~~
cUserID: user ID to store

Return value:
~~~~~~~~~~~~~
stored user ID


Source code is in file  ErrorSys.prg